;;===============================================================
;; core
;; Implements a basic main for demonstration
;;===============================================================
(ns strclj.core
  (:use [strclj.trie]
        [strclj.ahocorasick]
        [objects.node])
  (:import [objects Node])
  (:gen-class)
)

(defn -main
  "Example main"
  [& args]
  (let [text "Clojure is very nice! clojure for the win! clojure for the closure!" 
        keywords ["clojure"]
        matcher (ac keywords)]
    (println "> Results for keywords" keywords "in text:" "\n" "'" text "' are:")
    (println (matcher text)))
)
